Option Explicit
Sub F_Sample010()
    'ոF_Data01
    Dim myFileName As String
    myFileName = "F_Book1.csv"			'xsɮצW
    On Error Resume Next
    Kill ThisWorkbook.Path & "\" & myFileName	'RPWɮ
    On Error GoTo 0
    Worksheets("F_Data01").Copy			'N
    ActiveWorkbook.SaveAs _
    Filename:=ThisWorkbook.Path & "\" & myFileName, _
    FileFormat:=xlCSV
    ActiveWorkbook.Close SaveChanges:=False
End Sub
